xtrace	"ROX; Rokkaku-Daioh data direct import script"
{
	pragma	smooth_with_bound=off;

	nvar	rox_vsmooth=120, rox_asmooth=-1;
	nvar	rox_line_thick=0.;
	nvar	rox_refl_rate=1;		// in percent(%)

	// determin reflection and high-light parameter
	var		rox_nrefl=8;
	var		rox_rr.refl,rox_rr.high,rox_rr.beta;
	rox_rr.refl=rox_refl_rate/100;
	if (rox_refl_rate=0)
	{
		rox_nrefl=0;
		rox_rr.high=0;
		rox_rr.beta=0;
	}
	elif (rox_refl_rate=1)
	{
		rox_nrefl=0;
		rox_rr.high=30;
		rox_rr.beta=0.4;
	}
	else
	{
		rox_rr.high=1;
		rox_rr.beta=0.2;
	}

	smooth	rox_vsmooth,rox_asmooth : model
	{
		nmacro	rox_file_name="rox.rok";
		static : roku	$(rox_file_name) =
		{
			roku_line	rox_line_thick;
			roku_refl	rox_rr.refl,rox_rr.high,rox_rr.beta;
		};
		ifvar	roku_glid
		{
			attr	green=
			{
				color	0,1,0;
				diff	1,0;
			};
			procedure	glin	x1,y1,z1, x2,y2,z2
			{
				para	x1,y1,z1;
				leverz	x2 - x1,y2 - y1,z2 - z1;
				sim		1,1,sqrt (sq (x2 - x1) + sq (y2 - y1) + sq (z2 - z1));
				boundary	oval	0,0,0.5, 0,0,1, 0.5*sqrt (3),sqrt (3)
				{
					and
					{
						plane	0,0,1, 0,0,1;
						cylind	0,0,0, 0,0,1, 0.005;
						plane	0,0,0, 0,0,-1;
					}
				}
			}

			glin	0.5,0,0.5, -0.5,0,0.5;
			glin	0.5,0,-0.5, -0.5,0,-0.5;

			glin	0.5,0.5,0.25, -0.5,0.5,0.25;
			glin	0.5,0.5,0, -0.5,0.5,0;
			glin	0.5,0.5,-0.25, -0.5,0.5,-0.25;

			glin	0.25,0.5,0.5, 0.25,0.5,-0.5;
			glin	0,0.5,0.5, 0,0.5,-0.5;
			glin	-0.25,0.5,0.5, -0.25,0.5,-0.5;

			glin	0.5,0.5,0.5, -0.5,0.5,0.5;
			glin	-0.5,0.5,0.5, -0.5,-0.5,0.5;
			glin	-0.5,-0.5,0.5, 0.5,-0.5,0.5;
			glin	0.5,-0.5,0.5, 0.5,0.5,0.5;

			glin	0.5,0.5,-0.5, -0.5,0.5,-0.5;
			glin	-0.5,0.5,-0.5, -0.5,-0.5,-0.5;
			glin	-0.5,-0.5,-0.5, 0.5,-0.5,-0.5;
			glin	0.5,-0.5,-0.5, 0.5,0.5,-0.5;

			glin	0.5,0.5,0.5, 0.5,0.5,-0.5;
			glin	-0.5,0.5,0.5, -0.5,0.5,-0.5;
			glin	-0.5,-0.5,0.5, -0.5,-0.5,-0.5;
			glin	0.5,-0.5,0.5, 0.5,-0.5,-0.5;
		}
	}

	nvar	rox_nshdw=0, rox_distr=0;
	cond	0,1, rox_nrefl,rox_nshdw,rox_distr;
	screen	fwid,fwid,fbit;

	nvar	roku.ar=1,roku.ag=1,roku.ab=1;
	ambi	1, roku.ar,roku.ag,roku.ab, 0.3, 0,0;

	screwy	roku.pp*180/PI;
	screwx	roku.pq*180/PI;
	screwz	roku.pr*180/PI;
	para	-roku.dx,-roku.dy,-roku.dz;
	sim		1/roku.bx,1/roku.by,1;
	view	0.8, 0,-1,0, 0,0,1, 0,0,-1, 0.05;

	nvar	roku.lx=0.574988908,
			roku.ly=0.511101252,
			roku.lz=0.638876565;
	inf		-roku.lx,-roku.ly,-roku.lz, 0.267, 0.7,0.7,0.7;
}